1 PRINT"HEURES,MINUTES";:INPUTH,M:A=60*H+M:K18=INT(12*A/256):K19=12*A-256*K18:POKE18,K18:POKE19,K19
2 A=INT((PEEK(19)+PEEK(18)*256)/12):H=INT(A/60):M=A-60*H:POSITION15,12:PRINTH;" H ";M;" M ":GOTO2